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(PAGE 1) 

1. ABSTRACT 



THIS IS NOT A TEST PROGRAM! IT IS A SUPPLEMENT 
TO BOTH THE TBll/TUlO AND TH02/TUA5 DATA 
RELIBILITY PROGRAMS. ITS PURPOSE IS TO ALLOW THE 
OPERATOR TO CREATE A PAPER TAPE OF WHATEVER DATA 
PATTERN IS DESIRED, TO BE USED BY THE DATA RELIBILITY 
PROGRAMS, WHEN DATA PATTERN ZERO (0) IS SELECTED. 

2. REQUIREMENTS 



A. ANY PDP-11 PROCESSOR 

B. TELETYPE OR LA30 KEYBOARD 

C. HIGH SPEED OR LOU SPEED PUNCH 

D. IK OF CORE 

3. LOADING PROCEDURE 



USE STANDARD BINARY LOADING PROCEDURE 
4. STARTING PROCEDURE 



THE PROGRAM MAY BE STARTED AT EITHER 200 (8) 
OR 204 (8). WHEN STARTED AT 200 (8), OPERATING 
INSTRUCTIONS WILL BE PRINTED BEFORE STARTING 
INPUT. WHEN STARTED AT 204 (8), INPUT IS 

IMMEDIATELY STARTED. INPUT START IS NOTED BY AN ASTERISCK (*). 

SAMPLE START AT 200: (LOAD 200, PRESS START) 

EXTERNAL DATA TAPE CREATE PROGRAM 
MAXIMUM OF 377 OCTAL CHARACTERS. 
ENTER 3 DIGITS (0-7) FOR EACH CHARACTER. 
CR WILL ECHO CR-LF. 

CONTROL C ENDS INPUT AT LESS THAN 377. 

A SINGLE CHARACTER CORRECTION MAY BE DONE 

BY TYPING A SLASH AND RETYPING THE CHARACTER. 

* (THE ASTERISCK INDICATES START OF INPUT) 
SAMPLE START AT 204: (LOAD 204 PRESS START) 

• (START INPUT) 
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5. OPERATION: 



WHEN THE ASTERISCK IS PRINTED AFTER THE START AT 

200 OR 204, START INPUTTING CHARACTERS. EACH GROUP 

OF THREE (3) DIGITS (0-7) EQUALS ONE (1) CHARACTER ON 

TAPE. ENTER AS MANY 3 DIGIT GROUPS PER THE NUMBER 

OF CHARACTERS DESIRED IN THE PATTERN. THE PROGRAM 

WILL ACCEPT UP TO 256 CHARACTERS (377 OCTAL). IF 

LESS THAN 256 ARE DESIRED, TERMINATE INPUT BY 

TYPING A CONTROL C. A CARRIAGE RETURN (CR) MAY 

BE TYPED ANY TIME AND WILL ECHO A CR-LF BUT 

WILL NOT BE PLACED IN THE DATA PATTERN NOR COUNTED 

AS AN INPUT CHARACTER. ANY INPUT OTHER THAN AN 

OCTAL DIGIT (0-7), A CARRIAGE RETURN (CR), OR A CONTROL C 

WILL BE CONSIDERED ILLEGAL AND BE FLAGGED BY A 

QUESTION MARK (?). THE ILLEGAL ENTRY IS NEITHER 

PLACED IN THE DATA PATTERN NOR COUNTED AS A 

CHARACTER. WHEN INPUT IS COMPLETED (CONTROL C OR 256 CHARACTERS), 

THE PROGRAM TYPES END OF INPUT AND REQUESTS SELECTION 

OF HIGH SPEED OR LOU SPEED PUNCH FOR OUTPUT. A RESPONSE 

OF L TO THIS REQUEST WILL CAUSE OUTPUT ON THE TTY PUNCH, 

A RESPONSE OF H TO THIS REQUEST WILL OUTPUT ON THE 

HIGH SPEED PUNCH. 

WHEN OUTPUT IS COMPLETE, THE PROGRAM WILL AGAIN 

REQUEST AN OUTPUT RESPONSE. IF EITHER H OR L IS 

TYPED. THE SAME DATA PATTERN IS AGAIN OUTPUT. THIS 

CAN BE REPEATED AS MANY TIMES AS DESIRED. IF 

NO MORE OUTPUT IS NEEDED, BUT A DIFFERENT PATTERN 

IS DESIRED, TYPE A CR TO RETURN TO START OF 

INPUT WHICH WILL BE INDICATED BY AN ASTERISCK («). 

THE FIRST CHARACTER PUNCHED ON THE TAPE IS THE NUMBER 

OF CHARACTERS ON THAT TAPE AND IS NOT USED AS 

PART OF THE PATTERN BY THE EXERCISERS. THE DATA 

ON THE TAPE WILL APPEAR AS BYTES IN CORE WHEN 

USED BY THE EXERCISERS. 
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6. 



EXAMPLES 



THE FOLLOWING EXAMPLES SHOW THE TAPE LAYOUT RESULTING 

FROM ITS INPUT AND THE RESULTANT CORE HAP IN THE EXERCISER. 

(READ THE EXERCISER DOCUMENT TO SEE HOW TO USE THESE PATTERN TAPES) 

EXAMPLE 1: LOAD AND START AT 204 (8) 

•0001 1 1 2223334449?377/6( CONTROL C ) 

END OF INPUT 

ASSURE PUNCH IS ON 

AND TYPE L FOR LOU SPEED 

OR H FOR HIGH SPEED 

OR CR FOR RESTART WITH NO PUNCH 

L (OUTPUT IS NOW HADE ON TTV PUNCH) 



OUTPUT TAPE BIT LAYOUT: 

00000.110 (NUMBER OF CHARACTERS IN PATTERN IS 6) 

00000.000 

01001.001 

10010.010 (THE DOT . REPRESENTS THE SPROCKET HOLE) 

11011.011 

00100.100 

11111.110 

EXERCISER CORE MAP: 



WRITE BUFFER: 
♦2: 
♦4: 



0100100100000000 
1101101110010010 
1111111011011011 



(6 CHARACTER = 3 WORDS) 
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EXAMPLE 2: LOAD AND START 20A (8) 

•377(CR) 
500(CR) 
8?6?3{CR) 
33A266(C0NTR0L C) 

END OF INPUT 

ASSURE PUNCH IS ON 

AND TYPE L FOR LOW SPEED 

OR H FOR HIGH SPEED 

OR CR FOR RESTART WITH NO PUNCH 

H(OUTPUT IS NOU HADE OF HIGH SPEED PUNCH) 



OUTPUT TAPE BIT LAYOUT: 

00000.101 (NUMBER OF CHARACTERS IS 5) 

11111.111 

01000.000 

11011.011 (THE DOT REPRESENTS THE SPROCKET HOLE) 

00010.110 

10000.000 

EXERCISER CORE HAP: 



WRITE BUFFER: 
♦2: 
♦A: 



0100000011111111 
0001011011011011 
0000000010000000 



(5 CHARACTER = 2 WORDS * 1 BYTE) 



H 1 

DATA TAPE CREATE HACY11 30(1046) 13-JUN-78 15- 56 PAGE 7 

CZTUNA.P11 07-JUN-78 17:11 



SEO 0007 



(PAGE 5) 
7. EXCEPTION 



NOTE THAT THE FIRST DIGIT OF THE 3 DIGITS PER CHARACTER 

IS LEFT JUSTIFIED. BECAUSE THE TAPE IS ONLY EIGHT (8) BITS 

WIDE, THE HOST SIGNIFICANT BIT OF THE HRST DIGIT INPUT 

FOR EACH CHARACTER IS LOST. SEE EXAMPLE ONE (1). THE FIFTH (5) 

CHARACTER INPUT IS 444. BUT THE TAPE OUTPUT SHOWS 00100100 

BECAUSE THE MOST SIGNIFICANT BIT IS LOST. EXANPLE 2. THE 

SECOND 12) CHARACTER INPUT, ALSO SHOWS THIS. REMEMBER, THE 

FIRST DIGIT INPUT FOR EACH CHARACTER WILL ONLY SHOW THE TWO (2) 

LEAST SIGNIFICANT BITS OF THAT DIGIT. 

THE OTHER EXCEPTION TO KEEP IN HIND. IS THAT IF INPUT IS 
TERMINATED AT SOME NUMBER OF DIGITS NOT DIVISIABLE BY THREE (3). 
THE PARTIAL CHARACTER AT THE ENO OF THE FIELD WILL BE 
FILLED TO THE RIGHT WITH ZEROS (0). EXAMPLE 2. 
THE FIFTH (5) CHARACTER, HAS NOT BEEN COMPLETED BY 
INPUT BEFORE TERMINATION. SEE THE TAPE LAYOUT. CHARACTER 5 
WHICH SHOWS THAT THE TWO (2) LEAST SIGNIFICANT DIGIT 
POSITIONS ARE FILLED WITH ZEROES (0) TO COMPLETE THE 
CHARACTER FOR OUTPUT. 

8. EXERCISER USAGE 



THE EXERCISERS WILL READ THE TAPE CREATED BY DTC 
AND FILL THEIR ENTIRE WRITE BUFFER WITH REPITIONS OF 
THE DATA TAPE SO THAT ANY SIZE RECORD CAN BE WRITTEN. 

9. LISTING 
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259 
260 
261 
262 
265 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
27A 
275 
276 
277 
278 
279 
280 
281 
282 

283 000200 
28A 
285 

286 000204 
287 

288 001000 
289 
290 

291 001000 177560 

292 001002 177562 

293 001004 177564 

294 001006 177566 

295 001010 177554 

296 001012 177556 

297 001014 177776 
298 
299 
300 

301 0C1016 000000 

302 001020 000000 
303 
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SEO 0008 



.LIST 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 

000000 
000200 



000200 

000167 000774 
000204 

000167 001012 



SEQAOCBIN 

.TITLE DATA TAPE CREATE 
CZTUNAO 

;R. BARNES/R. J. COLLINS 
;25 HAY 1978 

.ENABLE ABS 



RO=XO 
R1=X1 
R2=X2 
R3=X3 
R4=Z4 
R5=X5 
SP=X6 
PC=X7 

.=0 

.REPT 200 

HALT 
.ENDR 

.=200 
START 



TKS 
TKB 
TPS 
TPS 
PPS 
PPB 
PSU 



TIB: 
T06: 



J HP 
J HP 



177560 
177562 
177564 
177566 
177554 
177556 
177776 



.=204 
ST1 

.=1000 

: CONSTANTS' 



.'STARTING ADDRESS=200(8} FOR HELP 



.•STARTING ADDRESS FOR NO HELP 



:L0U SPEED PUNCH 

;HIGH SPEED PUNCH 
.-PROGRAM STATUS WORD 



.•BUFFERS' 



0 
0 



.•INPUT BUFFER 
.•OUTPUT BUFFER 



DATA TAPE CREA 
CZTUNA.P11 

30A 
305 
306 

307 001200 

308 001206 

309 001212 

310 001216 

311 001222 

312 001230 

313 001 23A 
3U 001240 

315 0012*.4 

316 001250 

317 001254 

318 001256 

319 001260 

320 001262 

321 001 264 

322 001270 
323 



HACY11 
'-JUN-78 17:11 

001200 



012777 000340 

012706 000500 

012704 002176 

004767 000532 

012777 000340 

012706 000500 

005067 1 77560 

005067 177552 

012700 000250 

012702 002754 
005022 
005300 
001375 
005001 

012702 003017 

004767 000642 
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177606 START: 
177564 ST1: 

ST2: 
ST3: 
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SEO 0009 

.=1200 

:PR0GRAM START AND HOUSEKEEPING********** 



MOV 


#340,aPSW .SET TO PRIORITY LEVEL 7 


MOV 


#500. SP .-SET STACK TO 500 


MOV 


#MSG1,R4 




JSR 


PC.TTOUT ;TyPE HELP MESSAGE 


MOV 


#340,iPSU 




MOV 


#500, SP 




CLR 


TOB 




CLR 


TIB 


■CLEAR BUFFERS 


MOV 


#250, RO 


•SET SIZE IF DATA AREA 


MOV 


#DAM40,R2 


'SET START OF AREA TO CLEAR 


CLR 


(R2)* 


CLEAR DATA AREA 


DEC 


RO 


'CLEAR RO FOR USE AS CHARACTER COUNTER 


BNE 


ST2 


'BR IF NOT DONE 


CLR 


R1 


'CLEAR R1 FOR USE AS DIGIT POSITION POINTER 


MOV 


#DA*1 ,R2 


•SET START OF DATA AREA 


JSR 


PC.CRLF 


'TYPE CR.LF AND * 
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324 .-DATA READ FROM TTY«««*»*»*«* 

325 



326 


001274 


004767 


000552 




READ: 


JSR 


PC.TTIN 


;60 INPUT DATA 


327 


001300 


122767 


000215 


1775 ' 




cnPB 


#215, TIB 




328 


001 306 


001007 








BMP 

BNE 


RDl 


;BR IF NOT CR 


329 


001310 


012767 


000212 


177502 




nov 


JlOl O TAD 




330 


001316 


004767 


AAAC 1 O 

OOOdI 2 








D r T A#l 

PC , TOO 


• AA 1 C 


331 


00 1 5cc 


AAAi iL7 

000 lor 


1 777/. A 










• fiPT mpvt data 


5ic 


UUl 3cO 


iccfof 


UUUcU J 


1 r r <tOc 




r MPn 


ifPnX TIR 




XXX 

JJJ 




nni nnA 

UU 1 UUH 








DnC 




•RR IF MOT rONTRni C 


XXL 


UU 1 3 jO 


nnc7nn 

UU3' UU 








1 d • 


RO 




J J J 


UU 1 3HU 


nni 

UU 1 ' J J 








DC V 


ST3 


•BR IF FIRST IMPUT 


XXf\ 


UU 1 JHC 


nnni 

UUU 1 O r 


uuuc JH 






IMP 


run V. n 


•RO TO PlINrH ROUT IMF 


XX7 


UU 1 J*»0 


1 ?P7<k7 
1 CC r u r 


nnn7S7 

UUUc J f 








#?S7 TIB 


•SFF IF RUBOUT 


xxk 

JjO 


nni x^A 

UU 1 j5H 


nni nn5 

UU 1 UUc 








RUF 




• I F MnT • BR 
fir nu 1 • Dn 






000167 


Q00042 






JMP 


RUBOUT 

n W W Ww 1 


■ELSE RUBOUT LAST ENTRY 


3A0 


001362 


122767 


000260 


177426 


RD2A: 


CHPB 


#260, TIB 




341 


001370 


101407 








BLOS 


RD3 


:BR IF NOT TOO LOU 


342 


001372 


012767 


000277 


177420 


RD2B: 


nov 


#277, TOB 




343 


001400 


004767 


000430 






JSR 


PC. TOG 


;TYPE? 


344 


001404 


000167 


177664 






JNP 


READ 




345 


001410 


122767 


000267 


177400 


RD3: 


CNPB 


#267, TIB 




346 


001416 


103031 








BHIS 


RD4 


:BR IF NOT TOO HIGH 


347 


001420 


000167 








JHP 


RD2B 





348 
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349 .-LAST ENTRY RUBOUT ROUTINE********** 

350 



1 




nnnoLf\ 




Dl lOni IT - 


HUr 






JJC 




vccfyJi 


nnnnoi 




r MP 


#1,R1 ; 


SEE WHERE LAST ENTRY WAS 


X^X 




1 U 1 UUo 






on i 


RBO ; 


IF POSITION 0: BR 


XKL 




1 OTAI A 
1 U 1 H 






Rl O 


RB1 


IF POSITION 1: BR 


J J J 


UUImjO 








Rf TR 


#300. (R2} 




356 


001442 


005001 






CLR 


Rl .-RESET POSITION POINTER 


357 


001444 


000167 


177624 




JRP 


READ ; REENTER 


358 


001450 


142742 


000007 


RBO: 


BICB 


#7.-(R2) 




359 


001454 


005300 






DEC 


RO 


RESET CHAR POINTER 




UU 1 H jO 


ni?70i 

U 1 c f U 1 


nonno? 
uuuuuc 




nov 


I'2,R1 


RESET POSITION POINTER 


XA^ 

jO 1 


\J\J 1 HOC 


0001 ft7 
UUU 1 o> 


1 f 1 ouo 




JHP 


READ 


REENTER 


jOC 


1 too 


1^?71 ? 


000070 

UUUU f u 


DB1 • 
no 1 • 


BICB 


f70.(R2) 




XAX 


w mi c 


ni ?7oi 

U 1 c > U 1 


000001 

UUUUU 1 




nov 


#1.R1 .-RESET POSITION POINTER 




UU 1 "1 f o 


onni<k7 

UUU 1 0 1 


1 77S7? 




J HP 


READ .-REENTER 












.■POSITION DIGITS TO FORK 


CHARACTER AND LOAD DATA AREA********** 




001 SO? 
UU 1 juc 


01^70^ 

U 1 Of U J 


1 77^10 

If r J 1 u 




HOV 


TIB,R3 




JOT 


001 SOA 

UU 1 JUO 


1 A?70^ 


000^70 

UUU J ' u 




BICB 


#370, R3 


■R3=STRIPPED DI6IT(0-7) 




001 SI? 

UU 1 J 1 C 


0??701 

UC C ( U 1 


000001 

l/vVvv 1 




CHP 


#1.R1 


■TEST POSITION POINTER 




001 SI A 

UU 1 ^ 1 o 


10101A 
1 U 1 U 1 o 






6HI 


RD6 


;D0 POSITION 2 


^7? 


001 S?0 

UU 1 JCU 


1 U J*t 1 u 






BLO 


RDS 


;D0 POSITION 0 




001 S?? 

UU } JCC 


000?41 

UUUCt 1 






CLC 






X7it 


001 S?^ 

UU 1 JC*9 


10610^ 

1 UU 1 VJ 






ROLB 


R3 




^7S 


001 S?<^ 

UU 1 JCV 


10610^ 

1 Uw 1 VJ 






ROLB 


R3 


^POSITION DIGIT 1 


^76 


001 S30 


10610^ 

1 UU 1 VJ 






ROLB 


R3 




^77 


001 53? 

UU 1 J JC 


1 S031? 






BISB 


R3,(R2) 


;LOAD DIGIT 1 


^78 


001 S34 

UU 1 J 


005?01 

VV V 1 






INC 


Rl 


;BUNP POINTER 


^79 


001 536 


000167 

V W 1 U ( 


000026 

wVVVbU 




JHP 


RDEX 


;CHECIC FOR END 


JOV 


001 S£? 

UU 1 J*tC 






RDS ■ 


BISB 


R3.(R2)* 


;LOAD DIGIT 0 


^81 


VV 1 J*!" 


005001 






CLR 


Rl 


;CLEAR POSITION POINTER 


38? 


001546 

VV < 


005200 

VV*/C VV 






INC 


RO 


;BUnP CHARACTER COUNTER 




001 sso 

VV 1 J ^ V 


vvv 1 W f 


000014 

wvvv 1 "* 




J HP 


RDEX 


;LOAD DIGIT 


384 


001554 


000303 




RD6: 


SUAB 


R3 




385 


001556 


000241 






CLC 






386 


001 560 


006003 






ROR 


R3 


;POSITION DIGIT 2 


387 


001562 


006003 






ROR 


R3 




388 


001564 


150312 






BISB 


R3,(R2) 


:LOAD DIGIT 2 AND BUMP CHARACTER ADDRESS 


389 


001566 


005201 






INC 


Rl 


;BUNP POINTER 


390 


001570 


022700 


000377 


RDEX: 


CHP 


#377, RO 


391 


001574 


001402 






BEQ 


PUNCH 


;BR IF FILLED DATA AREA 


392 


001576 


000167 


177472 




JHP 


READ 



393 
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39A 










395 










396 


001602 


110067 


001210 




397 


001606 


062700 


000100 




398 


001612 


012701 


002754 




399 


001616 


012704 


002574 




400 


001622 


004767 


000126 




401 


001626 


004767 


000220 




402 


001632 


1 22767 


000314 


177156 


403 


001640 


001421 






404 


001642 


122767 


000310 


177146 


405 


001650 


001427 






406 


001652 


122767 


000215 


177136 


407 


001660 


001002 






408 


001662 


000167 


177334 




409 


001666 


012767 


000277 


177124 


410 


001674 


004767 


000134 




411 


001 700 


000167 


177722 




412 










413 










414 










415 


001 704 


112167 


177110 




416 


001710 


004767 


000120 




417 


001714 


A A P Y A A 

005300 






418 


001716 


001372 






419 


001 720 


116700 


001072 




420 


001724 


000167 


177652 




421 










422 










423 










424 


001 730 


112167 


177064 




425 


001734 


004767 


000160 




426 


001740 


005300 






427 


001 742 


001372 






428 


001 744 


116700 


001046 




429 


001750 


000167 


177626 




430 











PG: 
PO: 



PI 



P2: 



n 1 
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SEQ 0012 



:TAPE PUNCH ROUTINE 




novB 


RO.DA 


.-LOAD DATA AREA SIZE 


ADD 


#100, RO 


.-EXPAND FOR LEADER/TRAILER 


MOV 


#DAn40,R1 


.-LOAD PUNCH START ADPRCSS 


nov 


ffNSG2,R4 




JSR 


A V T Al ■ V 

PC .TTOUT 


.TYPE PUNCH REQUEST (H OR L) 


JSR 


PC.TTIN 


;GET RESPONSE 


CHPB 


#314, TIB 




BEQ 


PI 


;BR IF LS PUNCH 


CHPB 


#310. TIB 




BEQ 


P2 


;oR IF HS PUNCH 


CHPB 


#215. TIB 


.-SEE IF CR 


BNE 


PE 


. t r uAT • DA 

:IF NOT: BR 


JHP 


ST1 


.-ELSE RESTART 


nov 


iZff ,\0a 




JSR 


PC, TOG 


.-TYPE? 


Jnr 


BA 

PO 




.-PUNCH 


TAPE ON LOW 




NOVB 


(RD + .TOB 




JSR 


PC , TOG 


; PUNCH CHARACTcR 


DEC 


DA 

RO 




BNE 


r 1 


:BR IF NOT DONE 


novo 


1% A AA 




Jnr 


PUNCH 


.-RESTART 


; PUNCH 


TAPE ON HIGH 


SPEED********** 


novB 


(Rl)*.TOe 




JSR 


PC.THG 


: PUNCH CHARACTER 


DEC 


RO 




BNE 


P2 


:BR IF NOT DONE 


novB 


DA.RO 




JBP 


PUNCH 
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431 












;TTY 




432 
















433 


001 f 54 


i 1 ^7 
1 lc40f 


177040 




TTOUT: 


HOVB 


(R4)i,T0B 


434 


AAI 7^A 

001 r 60 


12Zf 6f 


000043 


177032 




CHPB 


#43.T0B 


435 


AAi 

001 rOO 


AAI y TA 

001430 








BEQ 


TEX 


436 


Arti 77rt 

00 1 f fO 


Mdfbf 


000045 


177022 




CNPB 


«45.T0B 


437 


rtrti 77^ 

001 f lb 


AAi y AT 

001403 








BEQ 


TCRLF 


438 


OOcOOO 


AA/. 7iL7 
004^0^ 


000030 






JSR 


PC, TOG 


439 


00c004 


AAA7iLl 

000 'o3 








BR 


TTOUT 


440 


OOcOOo 


1 icfof 


000015 


177004 


TCRLF: 


MOVB 


«15.T0B 


441 


OOiOl* 




000014 






JSR 


PC. TOG 


442 


OOcOcU 




000012 


176772 




NOVB 


#12.T0B 


443 


OOcUco 


AAZ 7iL7 
004 f O f 


000002 






JSR 


PC. TOG 


444 


002032 


000750 








BR 


TTOUT 


445 


002034 


105777 


176744 




TOG: 


TSTB 


aTPS 




AAOAZn 

OOcO*iO 


lU03f 3 








RPI 

Dr I. 


TOG 


447 


0A3A/,9 


11*777 
1 1 Of f f 


176752 


176736 




NOVB 


TOB.aTPB 


448 


UUcU3U 


uuucUr 






TEX: 


RTS 


PC 


449 
















450 












;TTV 




451 
452 




AA^A77 


176722 




TTIN: 


CLR 


aTKS 


453 




Aft^ft77 
UU^Uf f 


176720 






CLR 


iTKB 


454 


UUcUOc 


UUpUOr 


176730 






CLR 


TIB 


455 


AA7n/LA 


1 U3 f f f 


176706 




TTIN1: 


TSTB 


iTKS 


456 


AAPA7P 


1 nft'^7^ 








BPL 


TTIN1 


457 


t\t\0t\7L 
UUcUr *• 


A1 77A7 
U 1 r 1 O r 


176702 


176714 




nov 


aTKB.TIB 


458 


AA3in3 


1 ft^777 
1 U3f f 1 


176676 




TTIN2: 


TSTB 


aTPS 


459 


vUc 1 UO 


1 AAT7C 








BPL 


TTIN2 


460 


nn5i 1 ft 

UUc 1 1 u 


1 1 A777 


176702 


176670 




novB 


TIB.aTPB 


461 


UUc 1 1 o 


UUUcUr 








RTS 


PC 


462 
















463 












.•HIGH SPEED PUNCH SUBROUTINE********** 


464 
















465 


002120 


105777 


1 76664 




THG: 


TSTB 


apps 


466 




1 UUjf 3 








BPL 


THG 


467 


ftft31 
UUc 1 CD 


I 1 Or r r 


176666 


176656 




novB 


TOB.aPPB 


468 


ftft31 XL 
UUc 1 J^l 


ftOft307 








RTS 


PC 


469 
















470 
471 












;CR, 


LF. * TYPE SUBROUTINE********** 


472 


AA91 
JUc 1 jO 


Ai p7/t7 

U 1 C r w r 


000215 


176654 


CRLF: 


nov 


#215.TOB 


473 


002144 


004767 


1 77664 






JSR 


PC. TOG 


474 


002150 


012767 


000212 


1 76642 




nov 


«212.TOB 


475 


002156 


004767 


177652 






JSR 


PC. TOG 


476 


002162 


012767 


000252 


176630 




nov 


f252,TOB 


477 


002170 


004767 


177640 






JSR 


PC. TOG 


478 


002174 


000207 








RTS 


PC 


479 

















DATA TAPE CREATE 



CZTUNA. 


PI 1 


D7-JUN-78 


4 ^ 4 4 

17:11 






ABO 












<i81 












482 














0021 76 


A^ ^ / t r 

022445 


Ar / 4 Af 

054105 


042524 


nSGI : 


484 


002204 


047122 


046101 


A 4 ^A S A 

042040 




485 


AA^^4 ^ 

002212 


A 4 A« 

052101 


AtA4 A4 

020101 


A4 Af ^ / 

040524 




486 


A A ^ t ^ A 

002220 


042520 


041440 


042522 




487 


A A ^ ^ t ^ 

002226 


Af ^ 4 A4 

052101 


A ^ A 4 A r 

020105 


AP 4 4 t A 

051120 




488 


002234 


043517 


040522 


022515 




489 


A A ft t t 

002242 


040515 


044530 


052515 




490 


AA^^ ff A 

002250 


A^A4 4 ff 

0201 1 5 


A / V 4 4 ^ 

043117 


A V 4 / / A 

031440 




491 


AA ^ ^ 

002256 


AW/ ^ ^ 

033467 


047440 


A f ^ 4 A V 

052103 




492 


A A^ / 

002264 


A / ^ 4 A 4 

046101 


A / 4 J 1 A 

041440 


A / AC 4 A 

040510 




493 


002272 


A J Af ft 

040522 


Aft 4 A9 

052103 


AC 4 4 AC 

051105 




494 


002300 


022523 








495 


002302 


A/ ^4 AC 

047105 


A/ '^O/ 

042524 


At A4 1 1 

020122 




496 


002310 


A ^ A A^ V 

020063 


044504 


A / / C A^ 




49/ 


002316 


AC 4 C ^ / 

051524 


AT AAC A 

030050 


A w / r c 

033455 




498 


002324 


A/ TAC i 

043051 


A C 4 4 4 ^ 

051117 


A/ t / / A 

042440 




499 


AA^ TTO 

002332 


A/ i CA4 

041501 


A^A4 4 A 

020110 


A/ / 4 AT 

044103 




C AA 


AAOT/ A 

002340 


AC i i A4 

051101 


i\l 4 C A 4 

041501 


A/ OCO/ 

042524 




C Ai 

50l 


002346 


AOOCOO 

022522 








CA^ 

302 


AAOTCA 

002350 


AC 1 i AV 

051 i03 


AC V/ / A 

053440 


A/ A1 1 1 

0461 1 1 




CAT 

S03 


AAOTC^ 

002356 


020114 


A/ 1 CAC 

041505 


047510 




CA/ 

504 


002364 


A/ 4 / / A 

041440 


AOACOO 

026522 


A/ 914/ 

043114 




C AC 

505 


002372 


A/ C 

045 








C A^ 

506 


002373 


1 AT 

103 


A/ 71 4 7 

047117 


AC 4 4 t / 

051 124 




CA7 

507 


AAO/ A A 

002400 


A/ A 1 1 7 

0461 1 7 


A/ i / / A 

041440 


A/ ^/ / A 

042440 




CAM 

509 


AAO/ AA 

002400 


A/ 01 1 A 

0421 16 


AOA1 OT 

020123 


A/ 71 1 1 

04r1 1 1 




CAO 

509 


AAO/ 1 / 

002h1h 


ACOCOA 

052520 


AOA1 O/ 

0201 2A 


AC 01 A1 

052101 




C i A 

510 


AAOZOO 

0U2422 


A/ AA/ A 

0^6040 


AC1 CAC 

051 505 


AOA1 OT 

020123 




C1 1 


002430 


A/ / 1 O/ 

044124 


AZ71 A1 

047101 


ATI / / A 

031440 




CI 9 

51c 


002430 


ATV/ A7 

033467 


AOOZ CA 

022456 






CI T 

513 


AAO/ / O 

002442 


AOA1 A1 

020101 


A/ / COT 

044523 


A/ TC 1 A 

043516 




CI/ 

514 


AAO/ CA 

002450 


A/ OC1 / 

042514 


A/ 1 / / A 

041440 


A/ AC 4 A 

040510 




C 1 c 

51 5 


AAO/ CZ 

002s 56 


A/ ACOO 

040522 


AC01 AT 

052103 


AC 1 1 AC 

051105 




CI 

5l0 


nnoz Az 
002hoA 


AZ 1 ZZA 
OAI AAO 


AC1 117 

05111 f 


A/ OC OO 

042522 




CI ■? 
51 ( 


AAOZ 70 

002Ar2 


AC01 AT 

052103 


A/ 7C 1 1 

04 751 1 


AOA1 1 A 

0201 16 




CI B 

518 


AAOCAA 

002500 


A/ AC 1 C 

040515 


AOA1 T1 

020131 


A/ OCAO 

042502 




CIO 

519 


AAOCAA 

002506 


A/ OA/ A 

042040 


A/ 71 1 7 

047117 


AOOCAC 

022505 




con 
5cU 


nnociz 
002514 


AC/ CAO 

054502 


ACOAZ A 

052040 


ACA1 T1 

050131 




c^i 

521 


AAOCOO 

002522 


A/ 71 1 4 

047111 


AOA1 A7 

020107 


A^A4 A4 

020101 




coo 
Vic 


AAOC VA 

002530 


A/ A1 OT 

046123 


AC1 CA1 

051501 


AOA4 1 A 

020110 




COT 

5c3 


AAOdA 

002536 


A/ 71 A1 
04^101 


AOA1 A/ 

020104 


A/ OCOO 

042522 




coz 


AAOCZ / 

002544 


AC/ CO/ 

05A52A 


A/ / COA 

044520 


A/ TC 1 A 

043516 




coc 
5c5 


AAOCCO 

002552 


ACOAZ A 

0520A0 


A/ OC1 A 

042510 


AZ 1 / / A 

041440 




COA 

5cO 


002560 


AZ AC1 A 

0A0510 


A/ ACOO 

040522 


AC 01 AT 

052103 




COT 

527 


002566 


AC1 1 AC 

051 105 


AOO/ CA 

022456 


A/ T 

043 




COB 

528 












coo 
52V 




AAOC 7Z 

0025 7A 








c<n 
5jU 


AA0C7Z 

0025 r A 


AOOZZ C 

022AA5 


A/ 71 AC 

OAr 105 


AOA1 A/ 

020104 


nS62: 


7 J 1 


UUcOUc 


AZT1 1 7 

U*l J 1 1 r 


t\LLLLl\ 


1 10 




532 


002610 


052125 


0A5 






533 


002613 


101 


051523 


051125 




534 


002620 


020105 


052520 


041516 




535 


002626 


020110 


051511 


047440 





B 2 



.EVEN 

;«ESSAGES********** 

.ASCII /ZXEXTERNAL DATA TAPE CREATE PROGRAHZ/ 



SEQ 0014 



.ASCII /NAXinun of 377 OCTAL CHARACTERS!/ 



.ASCII /ENTER 3 DIGITS(0-7)F0R EACH CHARACTERS/ 



.ASCII /CR WILL ECHO CR-LFX/ 



.ASCII /CONTROL C ENDS INPUT AT LESS THAN 377. Z/ 



.ASCII /A SINGLE CHARACTER CORRECTION HAY BE DONEZ/ 



.ASCII /BY TYPING A SLASH AND RETYPING THE CHARACTER. Z#/ 



.EVEN 

.ASCII /ZZEND OF INPUTZ/ 



.ASCII /ASSURE PUNCH IS ONZ/ 















C 2 




DATA TAPE CREATE 


HACYI 1 


50(1046) 


1 J-JUN- 


-^8 lj:30 PAGE 15 




CZTUNA. 


P11 07-JUN-78 


17:11 








SEC 0015 


536 


002634 


022516 












537 


002636 


047101 


020104 


054524 




.ASCII /ANb TYPE L FOR LOU SPEEDX/ 




538 


002644 


042520 


046040 


043040 








539 


002652 


051117 


046040 


053517 








540 


002660 


051440 


042520 


042105 








541 


002666 


045 












542 


002667 


117 


020122 


020110 




.ASCII /OR h FOR HIGH SPEEDS/ 




543 


002674 


047506 


0201 2 J 


044510 








544 


002702 


044107 


051440 


042520 








545 


002710 


042105 


045 










Kid. 

546 


002713 


117 


020122 


051103 




.ASCII /OR CR FOR RESTART WITH NO PUNCHX#/ 




547 


002720 


043040 


051117 


051040 








548 


002726 


051505 


040524 


052122 








Pin 

549 


002734 


053440 


052111 


020110 








r f A 

550 


002742 


047516 


050040 


047125 








551 


002750 


044103 


021445 










c c ^ 

552 
















r r 9 

553 












.EVEN 




554 
















c c c 

555 
















556 


002754 


000000 






DAM4C: 


0 




557 




003016 








.=.♦40 




558 


003016 


000000 






DA: 


0 




559 
















560 
















561 




000001 








.END 





DATA TAPE CREATE 
CZTUNA.P11 07-JUK-78 



CRLF 
DA 

DAHAO 

MSG1 

HSG2 

PE 

PG 

PPB 

PPS 

PSU 



002136 
003016 
00275A 
002176 
002574 
001666 
001616 
001012 
001010 
0010U 



nActn 

17:11 

PUNCH 

PO 

PI 

P2 

RBO 

RB1 

RDEX 

RDl 

RD2 

RD2A 



ABS. 003020 



000 



50(1046) 13-JUN-78 13:56 
SYTOOL TABLE 



PAGE 



ERRORS DETECTED: 0 

.CZTUNA.SEQ/SOL CZTUNA.P11 
RUW-TIRE: 2 5 .2 SECONDS 
RUN-TIHE RATIO: 12/9=1.3 
CORE USED: 5K (10 PAGES) 



001602 
001626 
001704 
001730 
001450 
001466 
001570 
001326 
001346 
001362 



D 

17 



RD2B 

RD3 

RD4 

RDS 

RD6 

READ 

RUBOUT 

START 

ST1 

ST2 



001372 
001410 
001502 
001542 
001554 
001274 
00U24 
001200 
001222 
001254 



I 
L 



ST3 001270 

TCRLF 002006 

TEX 002050 

THG 002120 

TIB 001016 

TKB 001002 

TKS 001000 

TOB 001020 

TOG 002034 

TPB 001006 



TPS 001004 
TTIN 002052 
TTIN1 002066 
TTIN2 002102 
rrOUT 001754 
= 003020 



